home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / databases / intra2_16.lha / rexx / portname.irx < prev    next >
Encoding:
Text File  |  1993-04-20  |  468 b   |  14 lines
  1. /* INTRA_portname.irx  by Frank Maesen                            */
  2. /* $VER: INTRA_portname.irx 1.0 (18.4.1993)                       */
  3. /* Example Arexx program for controlling INTRA by Bart Vanhaeren  */
  4.  
  5. IF POS('INTRAREXX', SHOW('PORTS'))=0 THEN DO
  6.   SAY "*** Start INTRA first !!!"
  7.   EXIT(0)
  8.  END
  9.  
  10. portname=(TRIM(SUBSTR(SHOW('PORTS'),POS('INTRAREXX',SHOW('PORTS')),12)))
  11. SAY portname
  12.  
  13. /* ADDRESS (TRIM(SUBSTR(SHOW('PORTS'),POS('INTRAREXX',SHOW('PORTS')),12))) */
  14.